home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 5 / chrpro3.zip / MCPGTOTL.CMD < prev    next >
OS/2 REXX Batch file  |  1991-01-21  |  3KB  |  103 lines
  1. * Program MCPGTOTL - Verifies one page of contributions
  2. Store T to valid1
  3. Do while valid1
  4.   STORE '0' TO N
  5.   Do while N<>OT
  6.     Store str(val(N)+1,1) to N
  7.     Store OCATGT&N+OCATPT&N TO OCATGTX&N
  8.   ENDDO
  9.   Erase
  10.   @ 2,10 say 'CONTRIBUTIONS REPORTING  - -  WEEK OF '+WKNAME
  11.   @ 4,13 say 'PAGE'+PTCS+' TOTALS             GRAND TOTALS'
  12.   STORE '0' TO N
  13.   Store 6 to XX
  14.   Do while N<>OT
  15.     Store str(val(N)+1,1) to N
  16.     Store XX+1 to XX
  17.     If N=OT
  18.       @ XX,24 say '------'
  19.       @ XX,43 say '------'
  20.       Store XX+1 to XX
  21.     endif
  22.     @ XX,10 say OCATNAM&N+'  '+str(OCATPT&N,8,2)
  23.     @ XX,41 say str(OCATGTX&N,8,2)
  24.   enddo
  25.   ?
  26.   Accept '     Are the totals correct? ' to resp
  27.   Store T to valid2
  28.   Do while valid2
  29.     If !(resp)<>'Y' .and. !(resp)<>'N' .and. !(resp)<>'Q'
  30.       Accept 'INVALID RESPONSE. PLEASE ENTER Y,N, or Q ' to resp
  31.     else
  32.       Store F to valid2
  33.     endif
  34.   enddo
  35.   If !(resp)='N'
  36.     Release OCATGTX1,OCATGTX2,OCATGTX3,OCATGTX4,OCATGTX5
  37.     DO MCONEDIT.CMD
  38.     Store 'N' to RESP
  39.   ELSE
  40.     If PAGEPRNT .and. !(RESP)<>'Q'
  41.       Store 0 to EC
  42.       Store 0 to PN
  43.       Store 66 to LN
  44.       ? '     Ready the printer for a page of contributions.'
  45.       Set format to print
  46.       Do while EC < ECMAX
  47.         If LN > 60
  48.           If PN > 0
  49.             EJECT
  50.           endif
  51.           Store PN+1 to PN
  52.           @ 0,10 say HDR3A+'    Page'+str(PN,3)
  53.           Store 4 to LN
  54.           @ 2,8 say 'Envelope  '+HDR3
  55.         endif
  56.         Store EC+1 to EC
  57.         Store $(envnbrs,EC*4-2,4) to envno
  58.         Store val(envno) to envnumb
  59.         GOTO envnumb
  60.         Store '0' to N
  61.         Store 10 to XX
  62.         @ LN,10 say envno
  63.         Do while N<>OT
  64.           Store XX+12 to XX
  65.           STORE STR(VAL(N)+1,1) TO N
  66.           Store $(OCATEG&N,FL+1,8) TO OCATEGT&N
  67.           @ LN,XX say '$'+OCATEGT&N
  68.         ENDDO
  69.         Store LN+1 to LN
  70.       enddo
  71.       EJECT
  72.       Set format to screen
  73.     endif
  74.     Store 0 to EC
  75.     Store F to valid1
  76.   endif
  77. enddo
  78. If !(resp)<>'Q'
  79.   Store '0' to N
  80.   Do while N<>OT
  81.     Store str(val(N)+1,1) to N
  82.     Store OCATGTX&N to OCATGT&N
  83.     Store 0.00 to OCATPT&N
  84.   enddo
  85.   Release OCATGTX1,OCATGTX2,OCATGTX3,OCATGTX4,OCATGTX5
  86. endif
  87. RETURN
  88.  
  89. vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvtore $(OCATEG&N,FL+1,8) TO OCATEGT&N
  90.           @ LN,XX say '$'+OCATEGT&N
  91.         ENDDO
  92.         Store LN+1 to LN
  93.       enddo
  94.       EJECT
  95.       Set format to screen
  96.     endif
  97.     Store 0 to EC
  98.     Store F to valid1
  99.   endif
  100. enddo
  101. If !(resp)<>'Q'
  102.   Store '0' to N
  103.   Do whi